home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 January / january_2000.iso / Site Building / ASPEdit / _SETUP.1 / counter2.asp < prev    next >
Encoding:
Text File  |  1998-07-02  |  306 b   |  12 lines
  1. <%
  2.   ' Lock the application
  3.   Application.Lock
  4.     ' Get the name of the file name executed
  5.     sFileName = Request.ServerVariables("SCRIPT_NAME")
  6.  
  7.     ' Increment the count for this file
  8.     Application(sFileName) = Application(sFileName) + 1
  9.  
  10.   ' Unlock the application
  11.   Application.Unlock
  12. %>